(*# call(o_a_copy => off) *)
(*%F _fdata *)
(*# call(seg_name => null) *)
(*%E *)
(*# module(implementation=>on) *)
(*# data(seg_name => null) *)
DEFINITION MODULE QCkermit;

                     (* This JPI Modula-2 module is part of *)

                      (* QC -- a communications program *)
                             (* by Carl Neiburger *)
                              (* 169 N. 25th St.*)
                          (* San Jose, Calif. 95116 *)

                         (* CompuServe No. 72336,2257 *)

FROM PathFind IMPORT FilePtr;

PROCEDURE SendKermit( FileList: FilePtr );
PROCEDURE ReceiveKermit( Path, GetFile : ARRAY OF CHAR);
(* If GetFile > 0C, R packet will be sent *)

PROCEDURE KermitCmd( Cmd: CHAR );
(* Can send 'L'ogout or 'F'inish *)

END QCkermit.
